i=-500:1:500;
y=sin(25*i);
%y=y';
save -ASCII y.txt;
x=abs(fft(y))
%plot(x)
%hold
plot(x)
%end